home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / 187SEC11.ZIP / 187SEC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-02  |  4KB  |  247 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   TSTRING004(3)
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     BOOLEAN001 = 0
  34.     TSTRING004(0) = "/"
  35.     TSTRING004(1) = "-"
  36.     TSTRING004(2) = "\"
  37.     TSTRING004(3) = "|"
  38.     STRING007 = Chr(13)
  39.     STRING001 = ReadLine(PPEPath() + "187SEC.CFG", 1)
  40.     STRING002 = ReadLine(PPEPath() + "187SEC.CFG", 2)
  41.     STRING003 = ReadLine(PPEPath() + "187SEC.CFG", 3)
  42.     If (STRING001 == "1") Then
  43.         Goto LABEL001
  44.     Endif
  45.     If (STRING001 == "2") Then
  46.         Goto LABEL001
  47.     Endif
  48.     :LABEL001
  49.     Print STRING002 + "[" + STRING003 + "R" + STRING002 + "]=" + STRING003 + "Receiver Only (PRIVATE MESSAGE) " + STRING002 + "[" + STRING003 + "N/ENTER" + STRING002 + "]=" + STRING003 + "None (PUBLIC MESSAGE) " + STRING002 + "[" + STRING003 + " " + STRING002 + "]"
  50.     :LABEL002
  51.     Print "@X0F"
  52.     BOOLEAN001 = 0
  53.     TSTRING004(0) = "/"
  54.     TSTRING004(1) = "-"
  55.     TSTRING004(2) = "\"
  56.     TSTRING004(3) = "|"
  57.     STRING007 = Chr(13)
  58.     STRING005 = ""
  59.     INTEGER001 = GetX()
  60.     INTEGER002 = GetY()
  61.     AnsiPos 70, INTEGER002 + 1
  62.     Delay 2
  63.     Print TSTRING004(INTEGER003 % 4)
  64.     Inc INTEGER003
  65.     STRING005 = Upper(Inkey())
  66.     If ((STRING005 >= "A") && (STRING005 <= "Z")) Then
  67.         Goto LABEL003
  68.     Endif
  69.     If (STRING005 == Chr(13)) Then
  70.         Goto LABEL005
  71.     Endif
  72.     Goto LABEL002
  73.     :LABEL003
  74.     If (STRING005 == "R") Then
  75.         Goto LABEL004
  76.     Endif
  77.     If (STRING005 == "r") Then
  78.         Goto LABEL004
  79.     Endif
  80.     If (STRING005 == "N") Then
  81.         Goto LABEL004
  82.     Endif
  83.     If (STRING005 == "n") Then
  84.         Goto LABEL004
  85.     Endif
  86.     If (STRING005 == "G") Then
  87.         Goto LABEL004
  88.     Endif
  89.     If (STRING005 == "g") Then
  90.         Goto LABEL004
  91.     Endif
  92.     If (STRING005 == "D") Then
  93.         Goto LABEL004
  94.     Endif
  95.     If (STRING005 == "d") Then
  96.         Goto LABEL004
  97.     Endif
  98.     If (STRING005 == "S") Then
  99.         Goto LABEL004
  100.     Endif
  101.     If (STRING005 == "s") Then
  102.         Goto LABEL004
  103.     Endif
  104.     Goto LABEL002
  105.     :LABEL004
  106.     TSTRING004(0) = "@X08" + STRING005
  107.     TSTRING004(1) = "@X07" + STRING005
  108.     TSTRING004(2) = "@X0F" + STRING005
  109.     TSTRING004(3) = "@X0F" + STRING005
  110.     TSTRING004(4) = "@X07" + STRING005
  111.     TSTRING004(5) = "@X08" + STRING005
  112.     TSTRING004(6) = "@X08 "
  113.     TSTRING004(7) = "@X08 "
  114.     INTEGER001 = GetX()
  115.     INTEGER002 = GetY()
  116.     AnsiPos 70, INTEGER002 + 1
  117.     STRING007 = Chr(13)
  118.     Delay 2
  119.     Print TSTRING004(INTEGER003 % 7)
  120.     Inc INTEGER003
  121.     STRING006 = Upper(Inkey())
  122.     If (STRING006 == "") Then
  123.         Goto LABEL004
  124.     Endif
  125.     If (STRING006 == Chr(8)) Then
  126.         Goto LABEL002
  127.     Endif
  128.     If (STRING006 == Chr(127)) Then
  129.         Goto LABEL002
  130.     Endif
  131.     If (STRING006 == Chr(13)) Then
  132.         PrintLn 
  133.         KbdStuff STRING005
  134.         End
  135.     Endif
  136.     Goto LABEL004
  137.     :LABEL005
  138.     PrintLn 
  139.     KbdStuff Chr(13)
  140.     End
  141.     Print "@POFF@"
  142.     INTEGER001 = GetX()
  143.     INTEGER002 = GetY()
  144.     INTEGER002 = INTEGER002 - 2
  145.     :LABEL006
  146.     AnsiPos 1, INTEGER002
  147.     PrintLn STRING002 + "Message Security:  @X7FPUBLIC MESSAGE" + STRING002 + " <-> PRIVATE MESSAGE"
  148.     :LABEL007
  149.     STRING005 = ""
  150.     INTEGER001 = GetX()
  151.     INTEGER002 = GetY()
  152.     STRING005 = Upper(Inkey())
  153.     If (STRING005 == "LEFT") Then
  154.         Goto LABEL008
  155.     Endif
  156.     If (STRING005 == " ") Then
  157.         Goto LABEL008
  158.     Endif
  159.     If (STRING005 == "RIGHT") Then
  160.         Goto LABEL008
  161.     Endif
  162.     If (STRING005 == Chr(13)) Then
  163.         Goto LABEL010
  164.     Endif
  165.     Goto LABEL007
  166.     :LABEL008
  167.     AnsiPos 1, INTEGER002
  168.     PrintLn STRING002 + "Message Security:  PUBLIC MESSAGE <-> @X7FPRIVATE MESSAGE"
  169.     :LABEL009
  170.     STRING005 = ""
  171.     INTEGER001 = GetX()
  172.     INTEGER002 = GetY()
  173.     AnsiPos 1, INTEGER002
  174.     STRING005 = Upper(Inkey())
  175.     If (STRING005 == "LEFT") Then
  176.         Goto LABEL006
  177.     Endif
  178.     If (STRING005 == " ") Then
  179.         Goto LABEL006
  180.     Endif
  181.     If (STRING005 == "RIGHT") Then
  182.         Goto LABEL006
  183.     Endif
  184.     If (STRING005 == Chr(13)) Then
  185.         Goto LABEL011
  186.     Endif
  187.     Goto LABEL009
  188.     :LABEL010
  189.     KbdStuff "N"
  190.     End
  191.     :LABEL011
  192.     KbdStuff "R"
  193.     End
  194.  
  195. ;------------------------------------------------------------------------------
  196. ;
  197. ; Usage report (before postprocessing)
  198. ;
  199. ; ■ Statements used :
  200. ;
  201. ;    4       End
  202. ;    56      Goto 
  203. ;    42      Let 
  204. ;    5       Print 
  205. ;    4       PrintLn 
  206. ;    26      If 
  207. ;    2       Delay 
  208. ;    2       Inc 
  209. ;    4       KbdStuff 
  210. ;    5       AnsiPos 
  211. ;
  212. ;
  213. ; ■ Functions used :
  214. ;
  215. ;    2       %
  216. ;    36      +
  217. ;    1       -
  218. ;    25      ==
  219. ;    1       <=
  220. ;    1       >=
  221. ;    26      !
  222. ;    1       &&
  223. ;    4       Upper()
  224. ;    10      Chr()
  225. ;    4       Inkey()
  226. ;    3       PPEPath()
  227. ;    3       ReadLine()
  228. ;    5       GetX()
  229. ;    5       GetY()
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;
  233. ; Analysis flags : No flag
  234. ;
  235. ;------------------------------------------------------------------------------
  236. ;
  237. ; Postprocessing report
  238. ;
  239. ;    0       For/Next
  240. ;    0       While/EndWhile
  241. ;    26      If/Then or If/Then/Else
  242. ;    0       Select Case
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;                 AEGiS Corp - Break the routines, code against the machines!
  246. ;------------------------------------------------------------------------------
  247.